10 F=2*(null):XS=160:YS=100:SF=.73:BC=0:CC=1:PR=49152:CB=49365:CN=49408:P=49438
20 DC=54272:CL$=CHR$(147):PRINTCL$:POKE53280,0:POKE53281,0
30 FORI=PRTOPR+308:READD:POKEI,D:NEXT:FORI=1TO3:READD$(I):NEXT
40 PRINT"[147]"TAB(14)"[158]POLAR ART"
50 FORI=1TO3:SYSP,10+I*2,5:PRINTI"[157]. "D$(I):NEXT
60 SYSP,23,10:PRINT"YOUR SELECTION? "
70 GETA$:IFA$=""THEN70
80 A=VAL(A$):IFA<1ORA>3THENGOSUB290:GOTO40
90 N1=0:N2=0:R1=0:R2=0:PRINTCL$:SYSP,3,15:PRINTD$(A):ONAGOTO100,180,270
100 SYSP,10,0:PRINT"YOU MUST ENTER VALUES FOR N,R1, AND R2."
110 PRINT:PRINT"THE SUM OF R1+R2 MUST BE <= 135."
120 SYSP,20,5:INPUT"N,R1,R2";N1,R1,R2:GOSUB400:IFT>135THENGOSUB280:GOTO90
130 GOSUB310:GOSUB380:FORAN=0TOFSTEPS:RP=R1+R2*SIN(N1*AN):GOSUB350
140 GETA$:IFA$<>""THENAN=F:GOTO260
150 NEXT:GOSUB360
160 GETA$:IFA$=""THEN160
170 GOTO260
180 SYSP,10,2:PRINT"YOU MUST ENTER VALUES FOR":PRINTTAB(2)"N1,N2,R1, AND R2."
190 SYSP,13,2:PRINT"THE SUM OF R1+R2 MUST BE <= 135."
200 SYSP,20,5:INPUT"N1,N2,R1,R2";N1,N2,R1,R2
210 GOSUB400:IFT>135THENGOSUB280:GOTO90
220 GOSUB310:GOSUB380:FORAN=0TOFSTEPS:RP=R1*SIN(N1*AN)+R2*SIN(N2*AN)
230 GOSUB350:GETA$:IFA$<>""THENAN=F:GOTO260
240 NEXT:GOSUB360
250 GETA$:IFA$=""THEN250
260 POKE53265,PEEK(53265)AND223:POKE53272,21:GOTO40
270 SYS58260
280 SYSP,23,2:PRINT"INCORRECT DATA ENTRY - TRY AGAIN"
290 FORI=1TO10:POKEDC+24,15:FORJ=1TO3:NEXT
300 POKEDC+24,0:FORJ=1TO2:NEXT:NEXT:FORI=0TO300:NEXT:RETURN
310 PRINTCL$:SYSP,12,5:PRINT"PRESS ANY KEY TO END DRAWING"
320 SYSP,13,5:PRINT"AND RETURN TO MENU.":FORI=0TO2000:NEXT
330 POKE53272,PEEK(53272)OR8
340 SYSCB:SYSCN,BC+16*CC:POKE53265,PEEK(53265)OR32:RETURN
350 SYSPR,XS+RP*COS(AN),YS+SF*RP*SIN(AN):RETURN
360 POKEDC+24,15:POKEDC+1,110:POKEDC+5,9:POKEDC+6,9:POKEDC+4,17:POKEDC+4,16
370 RETURN
380 S=.04-(N1+N2)*.0015-T*.00005:IFS<.005THENS=.005
390 RETURN
400 T=ABS(R1)+ABS(R2):RETURN
410 DATA 32,253,174,32,158,173,32,170,177,140,60,3,141,61,3,32,253,174,32
420 DATA 158,173,32,170,177,140,62,3,173,62,3,74,74,74,141,63,3,173,61,3,74
430 DATA 173,60,3,106,74,74,141,64,3,173,62,3,41,7,141,65,3,173,60,3,41,7,141
440 DATA 66,3,169,7,56,237,66,3,141,66,3,169,0,141,67,3,141,68,3,174,63,3,240
450 DATA 20,24,169,64,109,67,3,141,67,3,169,1,109,68,3,141,68,3,202,208,236
460 DATA 234,169,0,141,70,3,173,64,3,141,69,3,14,69,3,46,70,3,14,69,3,46,70,3
470 DATA 14,69,3,46,70,3,169,0,133,251,169,32,133,252,24,165,251,109,67,3,133
480 DATA 251,165,252,109,68,3,133,252,24,165,251,109,69,3,133,251,165,252,109
490 DATA 70,3,133,252,24,165,251,109,65,3,133,251,165,252,105,0,133,252,169,1
500 DATA 174,66,3,240,4,10,202,208,252,141,71,3,160,0,177,251,13,71,3,145,251
510 DATA 96,162,32,169,0,133,251,138,133,252,160,0,169,0,145,251,200,208,251
520 DATA 232,224,63,208,239,169,0,133,251,169,63,133,252,160,0,169,0,145,251
530 DATA 200,192,64,208,249,96,32,253,174,32,158,173,32,170,177,152,160,0,153
540 DATA 0,4,153,250,4,153,244,5,153,238,6,200,192,250,208,239,96,32,43,193
550 DATA 132,251,32,43,193,166,251,76,240,255,32,253,174,32,158,173,32,170
560 DATA 177,96,ART I,ART II,QUIT